100 POKE53280,1:POKE53281,1
110 PRINT"[147]         [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
120 PRINT"         THE CONSTRUCTION SET":A$="  [164][164][164][164][164][164][164][164]"
130 PRINT"            PLEASE WAIT...
140 [151]55,0:[151]56,64:[156]:BA[178]16384:[135]A:[129]I[178]1[164]A:[135]X$:[130]:[129]I[178]1[164]352
150 [135]X:S[178]S[170]X:[130]:[139]S[179][177]34546[167][153]"ERROR IN DATA STATEMENTS.":[144]
160 [140]:DI[178]8:[135]NS:[143] SET DI=1 FOR TAPE
170 [131] 3,"HOUSE","CREATURE","SHAPES"
180 [153]"ON              LOADING...  ":[129]N[178]0[164]NS[171]1:CHSET[178]BA[170]6144[170]N[172]2048:[135]X$
190 [141]1200:[130]:[153]"LOAD":[129]N[178]1[164]40:[153]"USR";:[130]
200 [153]A$:[153]"     F1   WAIT         FOR DIFFERENT PICTURE";
210 [153]A$:[153]"     F7   WAIT         FOR INSTRUCTIONS"
220 [153]A$:[153]"  + AND - WAIT         FOR EXTRA PIECES"
230 [153]A$:[153]"   CURSOR WAIT         SELECTS PIECE"
240 [153]"  TOTOTOTOTOTOTOTOTOTO":[153]"   JOYSTICK WAIT       POSITIONS PIECE"
250 [153]"  TOTOTOTOTOTOTOTOTOTOTOTOTO":[153]"   FIRE BUTTON WAIT    STAMPS PIECE"
260 [153]"  TOTOTOTOTOTOTOTOTOTO":[153]"   INST DEL WAIT       ERASES PIECE"
270 [153]"  TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":[153]"   SHIFT CLR HOME WAIT ERASES SCREEN"
280 [153]"  TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO";
290 [153]"  PUSH _ AND THEN F1, F3, F5            "
300 [153]"  TO CHANGE BORDER, SCREEN, & PICTURE     COLOR. F7 RESUMES PROGRAM"
310 [153]"":[129]N[178]1[164]40:[153]"USR";:[130]
320 [153]"FOR         USE PORT 2 FOR JOYSTICK.";
330 V[178]53248:SB[178]15360[170]BA:SC[178]BA:H1[178]33:CB[178]1:MM[178]254:MN[178][171]1
340 SE[178]8:[129]SP[178]0[164]2:[129]N[178]0[164]63:[135]D:[151]SB[170]N[170](64[172]SP),D:[130]:[130]
350 [129]A[178]53088[164]53247:[135]I:[151]A,I:[130]:[158]53088:[151]17400,241:[151]17401,240
360 [151]17402,242:[151]V[170]39,1:[151]V[170]3,205:[151]V[170]2,24:[151]V[170]40,10:[151]V[170]28,1
370 [151]V[170]37,5:[151]V[170]38,1:[151]V[170]28,[194](V[170]28)[176]4:[151]V[170]41,1
380 [134]A$(80,3):X[178]1:[129]C[178]1[164]20
390 CO[178]CO[170]1:[129]R[178]1[164]3:A$(C,R)[178][196](X):X[178]X[170]32:[130]:X[178]X[171]93:[139]CO[178]10[167]CO[178]0:X[178]X[170]66
400 [130]C:CO[178]0:[129]C[178]21[164]50:CO[178]CO[170]1:A$(C,1)[178][196](X):A$(C,2)[178]"256":A$(C,3)[178]"256"
410 X[178]X[170]3:[139]CO[178]10[167]CO[178]0:X[178]X[170]2
420 [130]:[151]53265,[194](53265)[175]239:[151]56578,[194](56578)[176]3
430 [151]56576,([194](56576)[175]252)[176]2:A[178]4:SK[178][171]16:[151]53270,[194](53270)[176]16:PY[178]1
440 [129]N[178]1[164]NS:[141]690:[151]53281,15:[153]"LOAD":[151]53281,0:[130]:PY[178]0:A[178]4:SK[178][171]16
450 [151]53282,2:[151]53283,1:[141]690:[151]V[170]21,3:[151]V,24:[151]V[170]1,50
460 [151]V[170]27,0:[151]53265,[194](53265)[176]16:X[178]24:Y[178]50
470 J2[178][194](56320):FR[178]J2[175]16:JV[178]15[171](J2[175]15):[139]JV[178]1[167]Y[178]Y[171]SE:[139]Y[179]50[167]Y[178]50
480 [139]JV[178]2[167]Y[178]Y[170]SE:[139]Y[177]194[167]Y[178]194
490 [139]JV[178]4[167]X[178]X[171]SE:[139]X[179]24[167]X[178]24
500 [139]JV[178]8[167]X[178]X[170]SE:[139]X[177]312[167]X[178]312
510 TR[178](X[177]255):[151]V[170]16,([194](V[170]16)[175](MM))[176]TR[172](MN):[151]V[170]SP[172]2,X[170](TR[172]255)
520 [151]V[170](SP[172]2)[170]1,Y[170]2:[139]FR[178]0[167]640
530 [161]KH$:[139]KH$[178]""[167]470
540 [139][197](KH$)[179]4[175][197](KH$)[177]0[167]SE[178]8[172][197](KH$):[137]470
550 [139]KH$[178]"-"[167]CB[178]CB[171]9:[139]CB[179]0[167]CB[178]37
560 [139]KH$[178]"+"[167]CB[178]CB[170]9:[139]CB[177]37[167]CB[178]1
570 [139]KH$[178]"+"[176]KH$[178]"-"[167][141]730:[137]530
580 [139]KH$[178]""[176]KH$[178]"CMD"[167] [141]780:[137]470
590 [139][198](KH$)[178]20[167]640
600 [139]KH$[178]"LOAD"[167][151]53281,15:[153]"LOAD":[151]53281,0:[141]730:[137]470
610 [139]KH$[178]"INPUT"[167][141]690
620 [139]KH$[178]"LET"[167][141]1260
630 [137]470
640 X1[178](X[171]24)[173]8:Y1[178]((Y[171]50)[173]8)[172]40:S[178]SC[170]X1[170]Y1:[129]R[178]1[164]3:[129]C[178]0[164]2
650 P[178][197](A$(CB[170]CX,R))[170]C:[139]KH$[179][177]""[167]:[139][198](KH$)[178]20[167]P[178]32
660 [139]P[177]255[167]P[178]32
670 [151]S[170]C[170](R[171]1)[172]40,P:[130]:[139][197](A$(CB[170]CX,1))[170]C[177]185[167]R[178]3
680 [130]:FR[178]1:[137]470
690 A[178]A[170]2:SK[178]SK[170]16:[139]A[177]12[176](A[171]6)[173]2[178]NS[167]A[178]6:SK[178]0
700 SC[178]BA[170]1024[172]SK[173]16:[151]53272,([194](53272)[175]15)[176]SK
710 [151]53272,([194](53272)[175]240)[176]A:[151]648,SC[173]256:[139]PY[178]1[167][142]
720 [151]SC[170]1016,241:[151]SC[170]1017,240:[151]SC[170]1018,242:[141]730:[142]
730 VA[178]0:CO[178]0:[129]C[178]1[164]9:CO[178]CO[170]1:[129]R[178]1[164]3:[129]N[178]1[164]3:P[178][197](A$(CB[170]C[171]1,R))[171]1[170]N
740 [139]P[177]255[167]P[178]32
750 [151]SC[170]880[170]VA[170]N[170](C[171]1)[172]4[170](R[171]1)[172]40,P:[130]:[139][197](A$(CB[170]C[171]1,R))[171]1[170]N[177]185[167]N[178]3
760 [130]:[139]CO[178]9[167]CO[178]0:VA[178]VA[170]120
770 [130]:[141]800:[142]
780 [139]KH$[178]"CMD"[167] H1[178]H1[171]32:CX[178]CX[171]1:[139]CX[179]0[167]CX[178]8:H1[178]288
790 [139]KH$[178]""[167] H1[178]H1[170]32:CX[178]CX[170]1:[139]CX[177]8[167]CX[178]0:H1[178]40
800 [139][197](A$(CB[170]CX,1))[170]C[177]185[167]SP[178]2:SV[178][171]16:[151]V[170]21,6:MM[178]251:MN[178][171]4
810 [139][197](A$(CB[170]CX,1))[170]C[179]189[167]SP[178]0:SV[178]0:[151]V[170]21,3:MM[178]254:MN[178][171]1
820 TZ[178](H1[177]255):[151]V[170]16,([194](V[170]16)[175](253))[176]TZ[172]([171]2):[151]V[170]2,H1[170](TZ[172]255)
830 [142]
840 [131] 3,252,0,7,254,0,15,254,0,31
850 [131] 110,0,31,247,0,29,255,0,55,253
860 [131] 128,61,191,128,59,223,128,50,238,128
870 [131] 115,187,128,99,187,128,3,185,0,3,144,0
880 [131]2,128,0,3,128,0,3,128,0,2
890 [131]128,0,1,0,0,0,0,0,0,0
900 [131]0,0,85,85,85,127,255,253,112,0
910 [131]13,112,0,13,112,0,13,112,0,13
920 [131]112,0,13,112,0,13,112,0,13,112
930 [131]0,13,112,0,13,112,0,13
940 [131]112,0,13,112,0,13,112,0,13,112
950 [131]0,13,112,0,13,112,0,13,112,0
960 [131]13,127,255,253,85,85,85,247,85,85
970 [131]85,106,170,169,96,0,9,96,0,9
980 [131] 96,0,9,96,0,9,96,0,9,106
990 [131]170,169,85,85,85,0,0,0,0,0
1000 [131]0,0,0,0,0,0,0,0,0,0
1010 [131] 0,0,0,0,0,0,0,0,0,0
1020 [131]0,0,0,0,0,0,0,0,0,0
1030 [131] 0,0,120,173,40,3,141,248,207,173
1040 [131]41,3,141,249,207,173,250,207,141,40
1050 [131]3,173,251,207,141,41,3,88,96,165
1060 [131]145,201,253,208,116,120,169,0,133,198
1070 [131]32,159,255,32,228,255,201,0,240,246
1080 [131]201,133,240,15,201,134,240,23,201,135
1090 [131]240,31,201,136,240,84,76,130,207,173
1100 [131]32,208,24,105,1,141,32,208,76,130
1110 [131] 207,173,33,208,24,105,1,141,33,208
1120 [131] 76,130,207,165,243,141,252,207,165,244
1130 [131] 141,253,207,169,0,133,243,169,216,133
1140 [131] 244,173,134,2,24,105,1,141,134,2
1150 [131] 162,4,160,0,145,243,136,208,251,202
1160 [131] 240,5,230,244,76,216,207,173,252,207
1170 [131] 133,243,173,253,207,133,244,76,130,207
1180 [131] 88,108,248,207,237,246,123,207,2,0
1190 [131] 255,255
1200 [129]I[178]1[164][195](X$):[151]678[170]I,[198]([202](X$,I)):[130]
1210 [151]781,167:[151]782,2:[151]780,[195](X$):[158]65469
1220 [151]780,1:[151]781,DI:[151]782,0:[158]65466
1230 [151]780,0:[151]781,0:[151]782,CHSET[173]256:[158]65493
1240 [139]([194](783)[175]1)[176](191[175]ST)[167][153]"LOAD ERROR":[144]
1250 [160]1:[142]
1260 [151]56578,[194](56578)[176]3:[151] 56576,([194](56576)[175]252)[176]3
1270 [151]53270,[194](53270)[175]239:[151]53272,([194](53272)[175]15)[176]16
1280 [151]53272,([194](53272)[175]240)[176]4:XX[178][194](V[170]21):[151]V[170]21,0:[151]53281,0
1290 [161]K$:[139]K$[178]""[167]1290
1300 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]2
1310 [151]53270,[194](53270)[176]16:[151]53272,([194](53272)[175]15)[176]SK
1320 [151]53272,([194](53272)[175]240)[176]A:[151]53281,0:[151]V[170]21,XX:[142]